home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 19.zip / BS1 part 19 / Util Collection 5 BS1.adf / SCRIPTS / b_7x7_true_average_a(cd).scr < prev    next >
Text File  |  1988-01-19  |  683b  |  52 lines
  1. ; centre centre
  2. d convolve a 1 1 1 1 1 1 1 1 1
  3.  
  4. ; top left
  5. c shift a 3 3
  6. b convolve c 0 0 0 0 1 1 0 1 1
  7. d add d b
  8.  
  9. ; top middle
  10. c shift a 0 3
  11. b convolve c 0 0 0 1 1 1 1 1 1
  12. d add d b
  13.  
  14. ; top right
  15. c shift a -3 3
  16. b convolve c 0 0 0 1 1 0 1 1 0
  17. d add d b
  18.  
  19. ; centre left
  20. c shift a 3 0
  21. b convolve c 0 1 1 0 1 1 0 1 1
  22. d add d b
  23.  
  24. ; centre right
  25. c shift a -3 0
  26. b convolve c 1 1 0 1 1 0 1 1 0
  27. d add d b
  28.  
  29. ; bottom left
  30. c shift a 3 -3
  31. b convolve c 0 1 1 0 1 1 0 0 0
  32. d add d b
  33.  
  34. ; bottom centre
  35. c shift a 0 -3
  36. b convolve c 1 1 1 1 1 1 0 0 0
  37. d add d b
  38.  
  39. ; bottom right
  40. c shift a -3 -3
  41. b convolve c 1 1 0 1 1 0 0 0 0
  42. d add d b
  43.  
  44. ; do the division
  45. c level 49
  46. b divide d c
  47.  
  48. ; clean up
  49. flush c
  50. flush d
  51.  
  52.